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INTRODUCTION 



This is a guide for the 6502 machine language programmer 
who wants to take advantage of the various subroutines in Apple- 
soft. The addresses included assume that the user has an Apple II 
Plus, an Applesoft firmware card, or a Language Card. This list 
is believed to be correct, but be warned that it was a spare time 
project. If you find errors, contact your user group. This data is 
meant for the experienced programmer, WOr THE BEGINNER. 
Read your Applesoft Reference manual for more information. 

Take special note of CHRGET. This subroutine is the heart of 
Applesoft. When Applesoft wants the next character or an instruc- 
tion it points TXTPTR at the program or the input buffer and 
JSRs to CHRGET. When Applesoft REAds DATA, TXTPTR is 
temporarily set to the last used DATA statement. 

ABBREVIATIONS 

A the 6502 accumulator 

X the 6502 X register 

Y the 6502 Y register 

Z the zero flag of the 6502 status register 

C the carry flag of the 6502 status register 

A,X is a 16 bit number where A has the most significant byte and 
X the least significant byte. 



(Y,A) is the number or string whose address is in Y and A with 
the msb in Y and the isb in A. 

FAC the floating point accumulator 
ARG the ARGument register 
msb most significant bit or byte 

Isb ' least significant bit or byte 
eol end of line token ($00) 

LABELS HEX ADDR LABELS 

A1 3C,3D Apple monitor pointer for cassette routines 

A2 3E,3F Apple monitor pointer for cassette routines 

ARYTAB 6B,6C Start of array storage 

BUF 200,2FF Line input buffer 

CHARAC OD UsedbySTRLT2 

CURLIN 75,76 The current line number (=FF if in direct 
mode. 

DATLIN 7B,7C Line number of current DATA statement 

DATPTR 7D,7E The address of the next DATA comes from 

DSCTMP 9D,9E, Temp string descriptor 
9F 

ENDCHR OE Used by SRTLT2 

ERRFLG D8 $80 if ON ERR active 

ERRLIN DA,DB Line number where error occurred 

ERRNUM DE Which error occurred 

ERRPOS DC,DD TXTPTR save for HNDLERR 

ERRSTK DF Stack pointer value before error 

FBUFFR 100-110 FOUT buffer 

FIRST FO Used by PLOTFNS 

FORPNT 85,86 General pointer, see COPY 

FRESPC 71,72 Temp pointer for string storage routines 

FRETOP 6F,70 Bottom of string storage 

H2 2C Used by PLOTFNS 

HIGHDS 94,95 Used by BLTU 

HIGHTR 96,97 Used by BLTU 

HPAG E6 HIRES page to plot on. ($20 for HGR, 

$40 for HGR2) 

INDEX 5E,5F Temp pointer for moving strings 

INVFLG 32 Mask for inverse output 

LASTPT 53 Last used temp string pointer 

LINNUM 50,51 General purpose 16 bit number location 

LOWTR 9B,9C General purpose register. GETARYPT' 

FINDLN, BLTU 

MEMSIZ 73,74 HIMEM 

OLDLIN 77,78 Last line executed 

ORMASK F3 Mask for flashing output 

PRGEND AF,BO The end of the program text 

REMSTK F8 Stack pointer saved before each statement 

SPDBYT F1 Speed = delay number 

STREND 6D,6E The top of array storage 

STRNG1 AB,AC Pointer to a string. See MOVINS 

STRNG2 AD,AE Pointer to a string. See STRLT2 

SUBFLG 14 $00 subscripts allowed, $80=no subscripts 

TEMPPT 52 Last used temporary-string descriptor 

TXTTAB 67,68 Start of program text 
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V2 

VALTYP 

VARPNT 
VARTAB 



CHRGET 
CHRGOT 



2D Used by PLOTFNS 
11 Flags last FAC operation 0=number, FF 
string 

83,84 Used by PTRGET 
69.6A Start of variable storage 

TXTPTR INPUT ROUTINES 

0081(177) (Increment TXTPTR) 
00B7(183) (No increment) 



These routines load A from TXTPTR and set certain 6502 status 
flags. X and Y are not changed. 

On exit: 

A=the character 
Z isthesetif A ':'oreol ($3A or $00) 
C is clear if A is an ASCII number ('0' to '9'); 

TXTPTR TO INTEGER 

LINGET DAOC (55820) 

Read a line number (integer to 63999) from TXTPTR into 
LINNUIVI. LINGET assumes that the 6502 registers and A have 
been set up by the CHRGET that fetched the first digit. Normally 
exits through CHARGET which fetches the character after the 
number. If the number is greater than 63999 then LINGET exits 
via SYNTAX ERROR. LINNUIVI is zero if there is no number at 
TXTPTR. 

GTBYTC E6F5 (51925) 

JSR to CHRGET to gobble a character and fall into GETBYT. 
GETBYT E6F8 (59128) 
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FAC format 

-10 84 AO 00 00 00 FF 

10 84 AO 00 00 00 00 

Arithmetic routine calling conventions: 
For single argument functions: 
The argument is in FAC. 
The result is left in FAC. 
For Wo argument functions: 

The first argument is in ARG (see CONUPK). 
The second argument is in FAC. 
The result is left in FAC. 

FLOATING POINT REGISTERS 

NOTE: many of the following locations are used for other 
things when.not being used by the floating point math package. 





FAC 


ARG 


TEMPI TEMP2 


TEMP3 


RND 


EXP 


9D 


A5 


93 


98 


8A 


C9 


HOHO 


9E 


A6 


94 


99 


SB 


CA 


IVIOH 


9F 


A7 


95 


9A 


8C 


CB 


MO 


AO 


A8 


96 


9B 


8D 


CC 


LO 


A1 


A9 


97 


9C 


8E 


CD 


SGN 


A2 


AA 




(pacl<ed format) 





FMULT 
Move the 
fall into . , 
FMULTT 



FLOATING POINT OPERATORS 

E97F (59775) 
number in memory pointed to by Y,A into ARG and 



Evaluates the formula at TXTPTR, leaves the result in FAC, and 
falls into CONINT. >n the entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts the 
first number in FIRST and the second number in H2 and V2. 



PLOTFNS 



FIEC 



Get 2 LORES plotting coordinates (0-47,0-47) from TXTPTR 
separated by a comma. On entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts 
the first number in FIRST and the second number in H2 and V2. 



HFNS 



F6B9 



(63161) 

Get HIRES plotting coordinated (0-279,0-191) from TXTPTR. 
On entry TXTPTR points to the first character of the formula for 
the first number. Leaves the 6502 registers set up for HPOSN. 

On exit: 

A= vertical coordinate 
X= Isb of .horizontal coordinate 
Y= msb of horizontal coordinate. 



FLOATING POINT MATH PACKAGE INTRODUCTION 

This is the number format used throughout Applesoft: 

The exponent is a single byte signed number (EXP) in excess 
$80 form (the signed value has $80 added to it). The mantissa is 
4 bytes (HO, MOH, MO,LO). The binary point is assumed to be 
to the right of the most significant bit. Since in binary floating 
point notation the msb is always 1, the number's sign is kept 
there when the number is stored in packed form in memory. 
While in the math package the sign is kept in a separate byte 
(SGN) where only bit 7 is significant. If the exponent is zero 
then the number is zero although the mantissa isn't necessarily 
zero. 

Examples: . 

EXP HO MOH MO LO SGN 
Packed format 



E982 (59778) 
Multiply FAC and ARG. On entry A and Z reflect FACEXP. 

FDIV EA66 (90006) 

Move the number in memory pointed to by Y,A into ARG and 
fall into ... 

FIDVT EA69 (60009) 

Divide ARG by FAC. On entry A and Z reflect FACEXP. 
(61932)\ pADD E7BE (59326) 

Move the number in memory pointed to by Y,A into ARG and 
fall into . . . 

FADDT E7C1 (59329) 

Add FAC and ARG. On entry A and Z reflect FACEXP. 

FSUB E7A7 (59303) 

Move the number in memory pointed to by Y,A, into ARG and 
fall into . . . 

FSUBT E7AA (59306) 

Subtract FAC from ARG. On entry A and Z reflect FACEXP. 

FPWRT EE97 (61079) 

Exponentiation (ARG to the FAC power). On entry A and Z 
should reflect the value of FACEXP. 

NOTE: Most FAC move routines set up A and Z to reflect 
FACEXP but a LDA $9D will insure the proper values. 



FLOATING POINT CONSTANTS 



-10 
10 



84 
84 



AO 
20 



00 
00 



00 
00 



00 
00 



NOTE: The following addresses point to numbers in packed form 


suitable for use by CONUPK and MOVMF. 




RND 


00C9 


201) 


1/4 


F070 


61552) 




1/2 


EE64 ( 


61028' 




-1/2 


E937 


59703 




1 


E913 


59667 




10 


EA50 


59984 




SQR(.5) 


E92D 


59693 




SQR(2) 


E932 


59698 




LN(2) 


E93C 


59708 




L0G(e)2 


EEDB 


61147 




PI/2 


F063 


61539 




Pl*2 


F06B 


61547 




-32768 


EOFE 


57598 




1000000000 


ED14[1E9] 


(60692[489]) 
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FLOATING POINT FUNCTIONS 

SGN EB90 
Calls SIGN and floats the result in the FAC. 
On exit; 

FAC=1 If FAC was greater than 
FAC=0 If FAC was equal to 
FAC=-1 If FAC was less than 

ABS EBAF 

Absolute value of FAC 

INT EC23 

Greatest integer value of FAC. Uses QINT and floats the result 
SQR EE8D 
Take the square root of FAC 
LOG E941 
Log base e of FAC 
EXP EF09 
Raise e to the FAC power 
RND EFAE 
Form a 'random' number in FAC 
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SUMMARY OF MOVES: 



COS 

COS (FAC) 
SIN 

SIN(FAC) 
TAN 

TAN (FAC) 
ATN 

ARCTAN(FAC) 



EFEA 



EFF1 



F03A 



F09E 



(60335) 

(60451) 
esult. 
(61069) 

(59713) 
(61193) 
(61358) 
(61418) 
(61425) 
(61498) 
(61598) 



FLOATING POINT NUMBER MOVE ROUTINES 

MOVFM EAF9 (60153) 

Move memory pointed to by Y,A, into FAC. On exit A and Z 
reflect FACEXP. 



M0V2F 



EB1E 



(60190) 



Pack FAC and move it into temporary register 2. Uses IVIOVMF. 
On exit A and Z reflect FACEXP. 



M0V1F 



EB21 



(60193) 



Pack FAC and move it into temporary register 1. Uses IVIOVMF. 
On exit A and Z reflect FACEXP. 

MOVML EB23 (60195) 

Pack FAC and move it into zero page area pointed to by X. Uses 
MOVMF. On exit A and Z reflect FACEXP. 

MOVMF EB2B (60203) 

Pack FAC and move it into memory pointed to by Y,X.On exit 
A and Z reflect FACEXP. 

MOVFA EB53 (60243) 

Move ARG into FAC. On exit A=FACEXP and Z is set. 

MOVAF EB63 (60259) 

Move FAC into ARG. On exit A=FACEXP and Z is set. .. 

CONUPK E9E3 (59875) 

Load ARG from memory pointed to by Y,A. On exit A and Z 
reflect FACEXP. 



FAC 


=> (Y,A) 


EB2B 


FAC 


=> (o,x) 


EB23 


FAC 


=>TEMP 1 


EB21 


FAC 


:^>TEMP2 


EB1E 


FAC 


=>ARG 


EB63 


(Y,A) 


=>FAC 


EAF9 


(Y,A) 


=>ARG 


EB63 


ARG 


=>FAC 


EB53 



SIGN 



FLOATING POINT UTILITIES 

EB82 



(60290) 



Set A according to the value of FAC. 



On exit: 
A=1 
A=0 
A=FF 

FOUT 



if FAC is positive, 
if FAC=0 
if FAC is negative 

ED34 (60724) 

Creates a string in FBUFFR equivalent to the value of FAC. On 
exit Y,A points to the string. The string ends in a zero. FAC is 
scrambled. Use STROUT to then print the number. 

FCOMP EBB2 (60338) 

Compare FAC and a packed number in memory pointed to by 
Y,A. 



On exit: 
A=1 
A=0 
A=FF 



if (Y,A)<FAC 
if Y,A) = FAC 



if (Y,A) > FAC 

NEGOP 
FAC= -FAC 
FADDH 

Add 1/2 to FAC 
DIVIO 

Divide FAC by 10. Returns positive numbers only. 
MUL10 EA39 



EEDO 



E7A0 



EA55 



(61136) 
(59296) 
(59989) 
(59961) 



Multiply FAC by 10. Works for both positive and negative num- 
bers. 

INTEGER TO FAC 

SNGFLT E301 (58113) 

Float the unsigned integer in Y, 

GIVAYF E2F2 (58098) 

Float the signed integer in A,Y. 

FLOAT EB93 (60307) 

Float the signed integer in A. 

FAC TO INTEGER 

CONINT E6FB (59131) 

Convert FAC into a single byte number in X and FACLO. Nor- 
mally exits through CHRGET. If FAC is greater than 255 or less 
than then CONINT exits via ILLEGAL QUANTITY ERROR. 

AYINT E10C (57612) 

If FAC is less than +32767 and greater than -32767 then perform 
QINT. 



QINT 



EBF2 



(60402) 



Quick greatest integer function. Leaves INT(FAC) in FACHO, 
MO, LO signed. QINT assumes FAC < 2 to the 23rd (8388608 
decimal) 
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GETADR 



E752 



(59218) STRLIT 



Convert the number in FAC (-65535 to 65535) into a 2 byte 
integer (0-65535) in LINNUM. 

GETNUM E746 (59206) 

Read a 2 byte number into LINNUM from TXTPTR, clieck for 
a comma, and get a single byte number in X. On entry TXTPTR 
points to the first character of the formula for the first number. 
Uses FRNUM, GETADR, CHKCOM, GETBYT. 



COM BYTE 



E74C 



(59212) 

Checl< for a comma and get a byte in X. Uses CHKCOM, 
BETBYT. On entry TXTPTR points to the comma. 



FRMEVL 



TXTPTR TO FAC 

DD7B 



(56699) 



Evaluate the formula at TXTPTR using CHRGET and leave the 
result in FAC. On entry TXTPTR points to the first character of 
the formula. This is the main subroutine for the commands that 
use formulas and works for both strings and numbers. If the for- 
mula is a string literal, FRMEVL gobbles the opening quote and 
executes STRLIT and ST2TXT. 



FRMNUM 



DD67 



(56679) 

Evaluate the formula at TXTPTR, put it in FAC, and make sure 
it's a number. On entry TXTPTR points to the first character of 
the formula. TYPE MISMATCH ERROR results if the formula is 
a string. 

FIN EC4A (60490) 

Input a floating point number into FAC from CHRGET. FIN 
assumes that the 6502 registers and A have been set up by the 
CHRGET that fetched the first digit. 

STRING UTILITIES 

In Applesoft strings have three parts: the descriptor, a pointer to 
the descriptor, and the ASCII string. A string descriptor contains 
the length of the string and the address of its first character. See 
page 137 of the Applesoft Reference Manual. Through most of 
the routines the descriptor is left in memory and a pointer is 
kept in FAC. The pointer is the address of the descriptor. The 
actual string could be anywhere in memory. In a program, 1A$= 
"HI" will leave a descriptor pointing into the program text. 

CAT E597 (58775) 

Concatenate two strings. FACMO,LO point to the first string's 
descriptor and TXTPTR points to the '+' sign. 

STRINI E3D5 (58325) 

Get space for creation of a string and create a descriptor for it 
in DSCTMP. On entry A=length of the string. 

STRSPA E3DD (58333) 

JSR to GETSPA and store the pointer and length in DSCTMP. 

COPY DAB7 (55991) 

Free the string temporary pointed to by Y,A and move it to the 
memory pointed to by FORPNT. 

MOVINS E5D4 (58836) 

Move a string whose descriptor is pointed to by STRNG1 to 
memory pointed to by FRESPA. 

MOVSTR E5E2 (58850) 

Move the string pointed to by Y,X with a length of A to memory 
pointed to by FRESPA. 

STRTXT DE81 (56961) 

Sets Y,A equal to TXTPTR plus C and falls into STRLIT. 



E3E7 (58343) 

Store a quote in ENDCHR and CHARAC so that STRLT2 will 
stop on it. 

STRLT2 E3ED (58349) 

Take a string literal whose first character is pointed to by Y,A 
and build a descriptor for it. The descriptor is built in DSCTMP, 
but PUTNEW transfers it into a temporary and leaves a pointer 
to it in FACMO,LO. Characters other than zero that terminate 
the string should be saved in CHARAC and ENDCHR. Leading 
quotes should be skipped before STRLT2. On exit the character 
after the string literal is pointed to by STRNG2. Falls into 
PUTNEW. 



PUTNEW 



E42A 



(58410) 

Some string function is returning with a result in DSCTMP. Move 
DSCTMP to a temporary descriptor, put a pointer to the descrip- 
tor in FACMO,LO, and flag the result as a string. 

GETSPA E452 (58450) 

Get space for character string. May force garbage collection. 
Moves FRESPC and FRETOP down enough to store the string. 
On entry A= number of characters. Returns with A unaffected 
and pointer to the space in Y,X, FRESPC, and FRETOP. If 
there's no space then OUT OF MEMORY error. 

FRESTR 



E5FD 



(58877) 



Make sure that the last FAC result was a string and fall into 
F RE FAC. 



FRETMP 



E604 



(58884) 

Free up a temporary string. On entry the pointer to the descrip- 
tor is in Y,A. A check is made to see if the descriptor is a tempor- 
ary one allocated by PUTNEW. If so, the temporary is freed up 
by updating TEMPPT. If a temp is freed up a further check is 
made to see if the string is the lowest in memory. If so, that area 
of memory is freed up also by updating FRETOP. On exit the 
address of the string is in INDEX and Y,X and the string length 
is in A. 



FRETMS 



E635 



(58933) 

Free the temporary descriptor without freeing up the string. On 
entry Y,A point to the descriptor to be freed. On exit Z is set if 
anything was freed. 



DEVICE INPUT ROUTINES 

INLIN D52C (54572) (No prompt) 

INLIN+2 D52E (54574) (Use character in X for prompt) 

Ipput a line of text from the current input device into the input 
buffer, BUF, and fall into GDBUFS. 

GDBUFS D539 (54585) 

Puts a zero at the end of the input buffer, BUF, and masks off 
the msb on all bytes. 

On entry: 

X= the end of the input line 

On exit: 

A=0 

X=FF 

Y=1 



INCHR 



D553 



(54611) 

Get one character from the current input device in A and mask 
off the msb. INCHR uses the main Apple input routines and sup- 
ports normal handshaking. 
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DEVICE OUTPUT ROUTINES 

STROUT DB3A (56122) 

Print string pointed to by Y,A. Tlie string must end witfi a zero 
or a quote. 

STRPRT DB3D (56125) 

Print a string wliose descriptor is pointed to by FACMO, FACLO. 



OUTDO 

Print tlie cliaracter in A, 
effect. 

CRDO 

Print a carriage return. 
OUTSPC 
Print a space. 
OUTQST 

Print a question mark. 
INPRT 

Print "IN" and tfie current 
LINPRT. 



DB5C (56156) 
INVERSE, FLASH, and NORMAL in 



LINPRT ED24 
Prints tfie 2 byte unsigned number in X,A. 
PRNTFAC ED2E 



DAFB (56059) 

DB57 (56151) 

DB5A (56154) 

EDI 9 (60697) 
ine number from CURLIN. Uses 

(60708) 



(60718) 



Prints the current value of FAC. FAC is destroyed. Uses FOUT 
and STROUT. 



PTRGET 



INTERNAL LOCATOR ROUTINES 

DFE3 (57315) 



Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to thie first character of ttie variable name. 
On exit tfie address to the value of the variable is in VARPNT and 
Y,A. If PTRGET can't find a simple variable it creates one. If it 
can't find an array it creates one dimensioned to to 10 and set 
all elements equal to zero. 

GETARYPT F7D9 (63449) 

Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to the first character of the variable name. 
This routine leaves LOWTR pointing to the name of the variable 
array. If the array can't be found the result is an OUT OF DATA 
ERROR. 

FNDLIN D61A (54810) 

Searches the program for the line whose number is in LINNUM. 
On exit: 

1 . If C set LOWTR points to the linl< field of the desired line. 

2. If C clear then line not found. LOWTR to the next higher 
line. 

DATA D995 (55701) 

Move TXTPTR to the end of the statement. Looks for ':' or eol 
(0). 



DATAN 



D9A3 



(55715) 



Calculate the offset in Y from TXTPTR to the next ':' or eol (0). 
REMN D9A6 (55718) 

Calculate the offset in Y from TXTPTR to the next col (0). 
ADDON D998 (55704) 

Add Y to TXTPTR. 
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INITIALIZATION ROUTINES 

SCRTCH D64B (54859) 

The 'NEW' command. Clears the program, variables, and stack. 
CLEARC D66C (54892) 

The 'CLEAR' command. Clears the variables and stack. 
STKINI D683 (54915) 

Clears the stack. 

RESTOR D849 (55369) 

Sets the DATA pointer, DATPTR, to the bebinning of the 
program. 

STXTPT D697 (54935) 

Set TXTPTR to the beginning of the program. 

STORAGE MANAGEMENT ROUTINES 

BLTU D393 (54163) 

Block transfer makes room by moving everything forward. 
On entry: 

Y,A and HIGHDS=destination of high address + 1 
LOWTR=lowest address to be moved 
HIGHTR=highest address to be moved + 1 
On exit: 



LOWTR is unchanged 
HIGHTR=LOWTR-$100 
HIGHDS=lowest address transferred — : 



100 



REASON D3E3 (54243) 

Makes sure there's enough room in memory. Checks to be sure 
that the address Y,A is less than FRETOP. May cause garbage 
collection. Causes OMERR if there's no room. 

GARBAG E484 (58500) 

Move all currently used strings up in memory as far as possible. 
This maximizes the free memory area for more strings or numeric 
variables. 

MISCELLANEOUS BASIC COMMANDS 

Note that many commands are not documented because they 
jump into the new statement fetcher and cannot be used as a sub- 
routine. 

CONT D898 (55448) 

Moves OLDTXT and OLDLIN into TXTPTR and CURLIN. 

NEWSTT D7D2 (55250) 

Execute a new statement. On entry TXTPTR points to the ':' 
preceding the statement or the zero at the end of the previous 
line. Use NEWSTT to restart the program with CONT. 777/5 
ROUT/NE DOES NOT RETURN. 



RUN 

Run the program 
RETURN. 

GOTO 



D566 (54630) 
in memory. THIS ROUTINE DOES NOT 

D93E 



(55614) 

Uses LINGET and FNDLIN to update TXTPTR. GOTO assumes 
that the 6502 registers and A have been set up by the CHRGET 
that fetched the first digit. 

LET DA46 (55878) 

Uses CHRGET to get address of the variable, '=', evaluate the 
formula, and store it. On entry TXTPTR points to the first char- 
acter of the variable name. 
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HIRES GRAPHICS ROUTINES 



THE APPLE ORCHARD 

ERROR PROCESSOR ROUTINES 



NOTE: Regardless of which screen is being displayed, HPAG (lo- ERROR 
cation $E6) determines which screen is drawn on. ($20 for HGR, 
$40 for HGR2) 



D412 
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(54290) 



HGR2 F3D4 
Initialize and clear page 2 HIRES. 
HGR F3DE 
Initialize and clear page 1 HIRES. 
HCLR F3EE 
Clear the HIRES screen to blacl<. 
BKGND F3F2 
Clear the HIRES screen to last plotted color. 
HPOSN F40D 



(62420) 
(62430) 
(62446) 
(62450) 
(62477) 



Checks ERRFLG and jumps to HNDLERR if ONERR is active. 
Otherwise it prints <or> '?' <error message &X> 'ERROR'. If 
this is during program execution then it also prints 'IN' and the 
CURLIN. 



HANDLERR 



F2E9 



Positions the HIRES cursor without plotting, HPAG determines 
which page the cursor is pointed at. 

On entry: 

Horizontal=Y,X 
Vertical=A 

HPLOT F453 



(62185) 

Saves CURLIN in ERRLIN, TXTPTR in ERRPOS, X in ERR- 
NUiVI, and REMSTK In ERRSTK. REMSTK is equal to the 6502 
stack pointer and is set up at the start of each statement. X con- 
tains the error code. This may be used to interrupt the execution 
of a BASIC program. See the Applesoft Reference Manual page 
1 36 for the value of X for a given error. 

RESUiVlE F317 (62231) 

Restores CURLIN from ERRLIN and TXTPTR from ERRPOS 
and transfers ERRSTK into the 6502 stack pointer. 

SYNTAX CHECKING ROUTINES 

ISCNTC D858 (55384) 

Checks the Apple keyboard for a control - C ($83). Executes 
the BREAK routine if there is a control - C. 



Call HPOSN then try to plot a dot at the cursor's position. No 
dot may be plotted if plotting non-white at a complementary 
color X coordinate. 



HLIN 



F530 



Draws a line from the last plotted point or line destination to the 
coordinate in the 6502 registers. 

On entry: 

Horizontal =X,A 
Vertical=Y 

HFIND F5CB (62923) 

Convert the HIRES cursor's position to X-Y coordinates. Used 
after SHAPE to find where you've been left. 

On exit: 

$E0=horizontal Isb 
$E1=horizontal msb 
$E2=vertical 



(62547) CHKNUM DD6A 

Make sure FAC is numeric. See CHKVAL. 
CHKSTR DD6C 
Make sure FAC is a string. See CHKVAL. 
CHKVAL DD6D 



(62768) 



(55682) 
(56684) 
(56685) 



Checks the result of the most recent FAC operation to see if it 
is a string of numeric variable. A TYPE MISMATCH ERROR 
results if FAC and C don't agree. 



On entry: 

C set checks for strings 
C clear checks for numerics 

ERRDIR E306 



(58118) 



DRAW 



F601 



(62977) 



Causes ILLEGAL DIRECT ERROR if the program isn't running. 
X is modified. 

ISLETC E07D (57469) 

Checks A for an ASCII letter ('A' to 'Z'). On exit C set if A is a 
letter. 



Draw the shape pointed to by Y,X by inverting the existing color 
of the dots the siiape draws over. On entry A=rotation factor. 

SETHCOL F6EC (63213) 

Set the HIRES color to X. X must be less than 8. 

SHLOAD F775 (63349) 

Loads a shape table into memory from tape above MEMSIZ 
(HIMEM) and sets up the pointer at $E8. 

CASSETTE ROUTINES 

SAVE D8B0 (55472) 

Save the program in memory to tape. 

LOAD D8C9 (55497) 

Load a program from tape.. 

VARTIO D8F0 (55536) 

Set up A1 and A2 to save 3 bytes ($50 -$52) for the length. 
PROGIO D901 (55553) 

Set up A1 and A2 to save the program text. 



PARCHK DEB2 (57010) 

Checks for '(', evaluates a formula, and checks for ')'. Uses 
CHKOPN and FRMEVL then falls into CHKCLS. 

CHKCLS DEB8 (57016) 

Checks at TXTPTR for ')'. Uses SYNCH R. 

CHKOPN DEBB (57019) 

Checks at TXTPTR for '(', Uses SYNCHR. 

CHKCOM DEBE (50722) 

Checks at TXTPTR for ','. Uses SYNCHR. 

SYNCHR DECO (57024) 

Checks at TXTPTR for the character in A. TXTPTR is not 
modified. Normally exits through CHRGET. Exits with SYNTAX 
ERROR if they don't match. 

XDRAW F65D (62977) 

Draw the shape pointed to by Y, X by inverting the existing color 
of the dots the shape draws over. On entry, A=rotation factor. 



PAGE 18 



THE APPLE ORCHARD 



MARCH/APRIL 1980 



A1 

A2 

ABS 

ADDON 

ARYTAB 

ATN 

AYINT 



BKGND 

BLTU 

BUF 



CAT 

CHARAC 

CHKCLS 

CHKCOM 

CHKNUM 

CHKOPN 

CHKSTR 

CHKVAL 

CHRGET 

CHRGOT 

CLEARC 

COM BYTE 

CON I NT 

CONT 

CONUPK 

COPY 

COS 

CRDO 

CURLIN 



DATA 

DATAN 

DATLIN 

DATPTR 

DIVIO 

DRAW 

DSCTMP 



ENDCHR 

ERRDIR 

ERRFLG 

ERRLIN 

ERRNUM 

ERROR 

ERRPOS 

ERRSTK 

EXP 



FADD 

FADDH 

FBUFFR 

FCOMP 

FDIV 

FIN 

FIRST 

FLOAT 

FMULT 

FNDLIN 

FORPNT 

FOUT 

FPWRT 



-A- 

3C,3D 

3E,3F 

EBAF 

D998 

6B,6C 

F09E 

E10C 



F3F2 
D393 
200-2 FF 



D995 

D9A3 

7B,7C 

7D,7E 

EA55 

F601 

9D-9F 

-E- 

OE 

E306 

D8 

DA,DB 

DE 

D412 

DC,DD 

DF 

ER09 



^ 

E7BE 

E7A0 

100-1 FF 

EBB2 

EA66 

EC4A 

FO 

EB93 

E97F 

D61A 

85,86 

ED34 

EE97 



12 
12 
14 
16 
12 
14 
14 



17 
16 
12 



15 
12 
17 
17 
17 
17 
17 
17 
13 
13 
16 
15 
14 
16 
14 
15 
14 
16 
12 



16 
16 



FREFAC 

FRESPC 

FRESTR 

FRETMP 

FRETOP 

REMEVL 

FRMNUM 

FSUB 



GARBAG 

GDBUFS 

GETADR 

GETARYPT 

GTBYTC 

GETBYT 

GETNUM 

GETSPA 

GIVAYF 

GOTO 



H2 

HANDLERR 

HCLR 

HFIND 

HFNS 

HGR 

HGR2 

HIGHDS 

HIGHTR 

HLIN 

HPAG 

HP LOT 

HPOSN 



E600 
71,72 
E5FD 
E604 
6F,70 
DD7B 
DD67 
E7A7 



E484 
D539 
E752 
F7D9 
E6F5 
E6F8 
E746 
E4S2 
E2F2 
D93E 



— H — 

2C 

F2E9 

F3EE 

F5CB 

F6B9 

F3DE 

F3D4 

94,95 

96,97 

F530 

E6 

F453 

F40D 

-I- 



15 
12 
15 
15 
12 
15 
15 
13 



16 
15 
15 
16 
13 
13 
15 
15 
14 
16 



12 
17 
17 
17 
13 
17 
17 
i2 
12 
17 
12 
17 
17 



12 


INDEX 


5E,SF 


12 


12 


INCHR 


D553 


15 


14 


INLIN 


D52C 


15 


17 


INLIN+2 


D52E 


15 


12 


INPRT 


ED19 


16 




INT 


EC 23 


14 




INVFLG 


32 


12 


12 


ISCNTC 


D8S8 


17 


17 


ISLETC 


E07D 


17 


12 








12 








12 
17 
12 
12 
14 




-L- 




LASTPT 


53 


12 


LET 


DA46 


16 


LINGET 


DAOC 


13 


LINNUM 


50,51 


12 




LINPRT 


ED24 


16 




LOAD 


D8C9 


17 




LOG 


E941 


14 


13 
14 


LOWTR 


9B,9C 


12 




_M- 




12 


MEMSIZ 


73,74 


12 


14 


MOV1F 


EB21 


14 


13 


M0V2F 


EB1E 


14 


15 


MOVAF 


EB63 


14 


12 


MOVFA 


EB53 


14 


14 


MOVFM 


EAF9 


14 


13 


MOVINS 


E5D4 


15 


16 


MOVMF 


EB2B 


14 


12 


MOVML 


EB23 


14 


14 


MOVSTR 


E5E2 


15 


13 


MULIO 


EA39 


14 





— N— 




NEGOP 


EEDO 


14 


NEWSTT 


D7D2 


16 


OLDLIN 


— 0— 

77,78 


12 




ri 


12 


OUTDO 


DB5C 


16 


OUTQST 


DB5A 


16 


OUTSPC 


DB57 


16 




_p_ 




PARCHK 


DEB2 


17 


PLOTFNS 


F1EC 


13 


PRGEND 


AF,BO 


12 


PROGIO 


D901 


17 


PRTFAC 


ED2E 


16 


PTRGET 


DFE3 


16 


Dl ITKICII/ 

rU 1 NbW 


E42A 


15 


QINT 


-Q- 
EBF2 


14 




-R- 




REASON 


D3E3 


16 


REMN 


D9A6 


16 


REMSTK 


F8 


12 


RESTOR 


D849 


16 


RESUME 


F317 


17 


RND 


EFAE 


14 


RUN 


D566 


16 


SAVE 


-S- 
D8B0 


17 


SCRTCH 


D64B 


16 


SETHCOL 


F6EC 


17 


SGN 


EB80 


14 


SHLOAD 


F775 


17 


SIGN 


EB82 


14 


SIN 


EFF1 


14 


SNGFLT 


E301 


14 


orUD Y 1 


r 1 


12 


SQR 


EE8D 


14 


STKINI 


D683 


16 


STREND 


6D,6E 


12 


STRINI 


E3D5 


15 


CTPI IT 


L:)t / 


15 


STRLT2 


E3ED 


15 


STRNG1 


AB,AC 


12 


STRNG2 


AD,AE 


12 


STROUT 


DB3A 


16 


STRPRT 


DB3D 


16 


STRSPA 


E3DD 


15 


CXDTT VT 
J 1 K 1 X 1 


DE81 


15 


STXTPT 


D697 


16 


SUBFLG 


14 


12 


SYNCHR 


DECO 


17 




„T- 




TAN 


F03A 


14 


TEMPPT 


52 


12 


TXTTAB 


67,68 


12 




-V- 




V2 


2D 


13 


VALTYP 


11 


13 


VARPNT 


83,84 


13 


VARTAB 


69,6A 


13 


VARTIO 


D8F0 


17 




_x- 




XDRAW 


F65D 


17 



